home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d963.lha
/
SIOD
/
scm
/
with-input.scm
< prev
Wrap
Text File
|
1993-08-19
|
427b
|
12 lines
(define (with-output s p)
(letrec ((o (fluid output-port))
(f (open-port s "w" -1))
(e (lambda () (close-output-port f)
(set! (fluid output-port) o))))
(set! (fluid output-port) f)
(call-on-reset e)
(p)
(close-output-port f)
(set! (fluid output-port) o)
(uncall-on-reset e)))